home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / mpascal / compile.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  2.1 KB  |  86 lines
  1. /*
  2. ** $VER: Compile 0.003 (17 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** Function : Compilieren
  7. **
  8. **            ACHTUNG: Es wird nur der Pfad des Textes angegeben, es muß also
  9. **                     vorher der Text abgespeicher werden.
  10. **                     
  11. **                     Eine Möglichkeit dieses zu ändern siehe weiter unten.
  12. **
  13. **            Falls MPascal noch nicht gestartet wurde, wird dies vorher noch
  14. **            erledigt
  15. **
  16. */
  17.  
  18.  
  19. OPTIONS RESULTS                             /* enable return codes     */
  20.  
  21. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  22.     address 'GOLDED.1'
  23.  
  24. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  25. OPTIONS FAILAT 6                            /* ignore warnings         */
  26. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  27.  
  28. host = ADDRESS()                              /* get GED's port    */
  29.  
  30. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  31.  
  32. 'QUERY CAT'
  33. isGerman = (result = "deutsch")
  34.  
  35. 'QUERY ANYTEXT'
  36.  
  37. if (result = 'TRUE') then 
  38.  
  39.     do
  40.         'QUERY DOC VAR OLDNAME'             /* remember current file name */
  41.  
  42.         'QUERY DOC VAR FNAME'              /* Filename mit Pfad in Var FNAME */
  43.                                            /* FNAME wird dem Compiler übergeben */
  44.  
  45.         shell                               /* address shell */
  46.  
  47.         ok = (RC = 0)
  48.  
  49.         shell                               /* address host (GoldED) */
  50.  
  51.         'NAME NEW ' || oldname              /* restore old file name */
  52.  
  53.     END
  54.  
  55. else do
  56.  
  57.     if (isGerman) then
  58.         'REQUEST BODY="Kein Text vorhanden ?!"'
  59.     else
  60.         'REQUEST BODY="Text buffer is empty ?!"'
  61. end
  62.  
  63. 'UNLOCK' /* VERY important: unlock GUI */
  64.  
  65. IF ~show('p', 'MPASCAL') THEN
  66.  
  67.     do
  68.        shell                                  /* talk to AmigaDos  */
  69.        'run >NIL: PASCAL:BIN/MPASCAL -c S:MPascal.config -r MPASCAL'
  70.        'WaitForPort MPASCAL'
  71.     end
  72.  
  73. IF show('p', 'MPASCAL') THEN
  74.  
  75.     do
  76.         ADDRESS MPASCAL
  77.         'compile 'FNAME
  78.     end
  79. else 
  80.     do
  81.         ADDRESS (host)
  82.         'REQUEST BODY "Couldn''t launch MPASCAL ?!"'
  83.     end
  84.  
  85. EXIT
  86.